﻿Public Class NEWSOFTWARE
    Dim connect As CONDB = CONDB.NewConnection()
    Dim myDataSet1 As DataSet = New DataSet

    Private Sub NEWSOFTWARE_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    '-----clear form------
    Public Sub clearProgramForm()
        PRGCODETxt.Clear()
        PRGNAMETxt.Clear()
        masprgStatusChk.Checked = False
    End Sub

    '-----add-----
    Private Sub addMasprg_Click(sender As Object, e As EventArgs) Handles addMasprg.Click
        If PRGCODETxt.Text.ToString.Length > 0 And PRGNAMETxt.Text.ToString.Length > 0 Then
            Dim objInsertData As New SOFTWAREGROUPCLASS
            objInsertData.PRGCODE_ = PRGCODETxt.Text
            objInsertData.PRGNAME_ = PRGNAMETxt.Text
            objInsertData.masprgSTATUS_ = masprgStatusChk.Checked

            If objInsertData.insertMasprg() = True Then
                'querySoftwareGrid()
                MsgBox("เพิ่มรายชื่อโปรแกรมเรียบร้อยแล้ว")
                clearProgramForm()
                DialogResult = Windows.Forms.DialogResult.OK
                Me.Close()
            End If

            connect.Dispose()
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วนทุกช่องก่อนทำการเพิ่มข้อมูล")
        End If
    End Sub
End Class